COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CREATING FILES WHICH ARE ACCESSABLE BY THE ARM PROGRAMS
C00004 ENDMK
C⊗;
CREATING FILES WHICH ARE ACCESSABLE BY THE ARM PROGRAMS

given a program in SAIL-

 define strings   

STRING MOVE,PARK,OPEN, GOTO;

Assign values to variables in string

MOVE←"value ";

Alternative is to set up an array, this saves on assignment statements.

PRELOAD_WITH "PARK ","MOVE ","GOTO ";

OWN STRING ARRAY FUNCT[1:4];       funct is a one dim array 4 long

at run time FUNCT[1] has PARK  in it.

at the beginning ( or near there) put

DEFINE  CRLF="('15&'12)";      this terminates a line when multiple statements are sent to disk


now we start building up our string.

TEST← FUNCT[1

TEST← TEST & CRLF & GOTO ;

aall it takes to output on the disk is 

OPEN(1, "DSK",0,0,2,120,DUM, DUM);  where DUM  is defined earlier as INTEGER DUM;

this attaches the disk, channnel 1 , to my program.

now

ENTER(1,"TEST.YEL", DUM);


to write out my string, type

OUT(1,TEST);
RELEASE(1);   closes out disk file


if we want to make the output filename a variable, so each time we write out a new file, we can say.

CNT←1;


ENTER(1,"T"&CVS(CNT)&".YEL",DUM);

then make a loop to increment CNT
 

some other info.  
defining macros, like TRANS